---
title: "Map for CU Safety"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
source: embed
---
```{r setup, include=FALSE}
library(tidyverse)
library(plotly)
library(leaflet)
cu_df = read_csv("../data/full_filter_data.csv")
```
Column
-----------------------------------------------------------------------
### Safety Map around Columbia University
```{r}
content_main = paste(sep = "<br/>",
"<b><a href='https://www.columbia.edu/'>Columbia University</a></b>",
"2960 Broadway",
"New York, NY 10027-6902"
)
content_cumc = paste(sep = "<br/>",
"<b><a href='https://www.publichealth.columbia.edu/'>Columbia Mailman School for Public Health</a></b>",
"West 168th Street, 722",
"New York, NY 10032"
)
cu_df %>%
leaflet() %>%
setView(lng = -73.94184,lat = 40.8394, zoom = 14) %>%
addTiles() %>%
addPopups(-73.96249, 40.80747, content_main, options = popupOptions(closeButton = FALSE)) %>%
addPopups(-73.9434, 40.84259, content_cumc, options = popupOptions(closeButton = FALSE)) %>%
addMarkers(~longitude, ~latitude, clusterOptions = markerClusterOptions())
```